home *** CD-ROM | disk | FTP | other *** search
/ Oral Ecstasy / Oral Ecstasy (Over 1000 Hi-Res Color Photos).ISO / autorun / vv1.pas < prev   
Pascal/Delphi Source File  |  1996-02-01  |  3KB  |  134 lines
  1. unit Vv1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, FileCtrl, StdCtrls, Buttons, ExtCtrls, MPlayer,prdi,
  8.   MyRotate;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Image1: TImage;
  13.     DirectoryListBox1: TDirectoryListBox;
  14.     BitBtn1: TBitBtn;
  15.     Label2: TLabel;
  16.     FileListBox1: TFileListBox;
  17.     Label3: TLabel;
  18.     BitBtn2: TBitBtn;
  19.     Timer1: TTimer;
  20.     MediaPlayer1: TMediaPlayer;
  21.     BitBtn3: TBitBtn;
  22.     Bevel1: TBevel;
  23.     v31: TBitBtn;
  24.     v95: TBitBtn;
  25.     procedure DirectoryListBox1Change(Sender: TObject);
  26.     procedure BitBtn1Click(Sender: TObject);
  27.     procedure FormCreate(Sender: TObject);
  28.     procedure SpeedButton1Click(Sender: TObject);
  29.     procedure BitBtn2Click(Sender: TObject);
  30.     procedure Timer1Timer(Sender: TObject);
  31.     procedure BitBtn3Click(Sender: TObject);
  32.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  33.     procedure v31Click(Sender: TObject);
  34.     procedure v95Click(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  40.  
  41. var
  42.   Form1: TForm1;
  43.   st,go:Boolean;
  44. implementation
  45.  
  46. {$R *.DFM}
  47.  
  48. procedure TForm1.DirectoryListBox1Change(Sender: TObject);
  49. begin
  50.      FileListBox1.Directory:=DirectoryListBox1.Directory;
  51. end;
  52.  
  53. procedure TForm1.BitBtn1Click(Sender: TObject);
  54. begin
  55. Close;
  56. end;
  57.  
  58. procedure TForm1.FormCreate(Sender: TObject);
  59. begin
  60.      with mediaplayer1 do
  61.      begin
  62.      filename:='\autorun\v3.wav';
  63.      open;
  64.      end;
  65.      st:=True;
  66.      go:=true;
  67.  
  68. end;
  69.  
  70. procedure TForm1.SpeedButton1Click(Sender: TObject);
  71. var cmd:array[0..255] of char;
  72. begin
  73.      StrPcopy(cmd,'\autorun\vpic '+directoryListBox1.Directory);
  74.      winexec(Cmd,SW_showMaximized);
  75. end;
  76.  
  77. procedure TForm1.BitBtn2Click(Sender: TObject);
  78. begin
  79.      if bitbtn2.caption='Music On' then
  80.      begin
  81.         mediaplayer1.stop;
  82.         st:=False;
  83.         bitbtn2.caption:='Music Off';
  84.      End
  85.      else
  86.      begin
  87.         mediaplayer1.play;
  88.         st:=True;
  89.         bitbtn2.caption:='Music On';
  90.      End;
  91. end;
  92.  
  93. procedure TForm1.Timer1Timer(Sender: TObject);
  94. begin
  95.     if go then
  96.      if st then mediaplayer1.play
  97.      else mediaplayer1.stop;
  98. end;
  99.  
  100. procedure TForm1.BitBtn3Click(Sender: TObject);
  101. var
  102.    f:Textfile;
  103.    i:integer;
  104. begin
  105.      assignfile(f,'c:\temp.ben');
  106.      rewrite(f);
  107.      tag:=1;
  108.      for i:=0 to filelistbox1.items.count-1 do
  109.      begin
  110.      Writeln(f,filelistbox1.items[i]);
  111.      end;
  112.      closefile(f);
  113.      priDial.show;
  114.  
  115. end;
  116.  
  117. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  118. begin
  119.      if tag=1 then
  120.      Deletefile('c:\temp.ben');
  121. end;
  122.  
  123. procedure TForm1.v31Click(Sender: TObject);
  124. begin
  125.      WinExec('\go.bat',SW_shownormal);
  126. end;
  127.  
  128. procedure TForm1.v95Click(Sender: TObject);
  129. begin
  130.      winexec('\Ployvie\polyview',Sw_ShowMaximized);
  131. end;
  132.  
  133. end.
  134.